*******************************
** OPEN STATA 14 **************
*******************************

use "POLITICAL EMANCIPATION -- POLAND DATA SET.dta", clear

global covariates "jewishpop"


* PLOTS FOR APPENDIX B (RDPLOTS OF VARIABLES IN FIGURE 5) -- POLYNOMIAL OF 1

* FIGURES: 1/ HAVE 30 BINS TO EACH SIDE & 2/ FITTED LINE FOR ESTIMATION OF BANDWIDTH IN RDROBUST

* ALTITUDE

rdrobust altitude distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

* rdplot with all observations

rdplot altitude distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Zionist Schools per 1000 J - Pinkas, size(small) margin(medsmall)) yscale(range(0(100)300)) ylabel(0(100)300) ylabel(0(100)300) xlabel(,labsize(small) format(%9.0gc)) title(1. Altitude, size(medlarge) margin(medsmall))) genvars

* mark 1 observation per bin (to build a clean plot)

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

* generate variables to keep value of mean -- for 1 observation -- to plot final plot; otherwise the following rdplot restricts them to the estimated bandwidth

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

* rdplot with observations in the bandwith employed to estimate local regression (in rdrobust)

rdplot altitude distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Zionist Schools per 1000 J - Pinkas, size(small) margin(medsmall)) yscale(range(0(100)300)) ylabel(0(100)300) ylabel(0(100)300) xlabel(,labsize(small) format(%9.0gc)) title(1. Altitude, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

* then generate plot that has all observations (1 per bin) and local regression estimate (within bandwidth identified in rdrobust)

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Altitude) ytitle(, margin(medsmall)) yscale(range(0(100)300)) ylabel(0(100)300) yline(0 (100) 300, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(1. Altitude, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-altitude.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* RUGGEDNESS

rdrobust ruggedness_20km distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot ruggedness_20km distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(100)300) xlabel(,labsize(small) format(%9.0gc)) title(1. Altitude, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot ruggedness_20km distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(100)300) xlabel(,labsize(small) format(%9.0gc)) title(1. Altitude, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Altitude Standard Deviation) ytitle(, margin(medsmall)) yscale(range(0(20)100)) ylabel(0(20)100) yline(0 (20) 100, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(2. Ruggedness, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-ruggedness.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot



* CROPLAND

rdrobust cropland_20km distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot cropland_20km distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(100)300) xlabel(,labsize(small) format(%9.0gc)) title(3. Cropland, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot cropland_20km distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(100)300) xlabel(,labsize(small) format(%9.0gc)) title(3. Cropland, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Km2 (in gridcell) to Cropland) ytitle(, margin(medsmall)) yscale(range(10(10)40)) ylabel(10(10)40) yline(10 (10) 40, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(3. Cropland, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-cropland.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* PASTURE

rdrobust pasture_20km distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot pasture_20km distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(100)300) xlabel(,labsize(small) format(%9.0gc)) title(4. Pasture, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot pasture_20km distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(100)300) xlabel(,labsize(small) format(%9.0gc)) title(4. Pasture, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Km2 (in grid cell) to Pasture) ytitle(, margin(medsmall)) yscale(range(0(10)30)) ylabel(0(10)30) yline(0 (10)30, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(4. Pasture, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-pasture.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* KM TO RAILWAY

rdrobust nearestdist_to_railway1920 distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot nearestdist_to_railway1920 distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(100)300) xlabel(,labsize(small) format(%9.0gc)) title(railways, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot nearestdist_to_railway1920 distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(100)300) xlabel(,labsize(small) format(%9.0gc)) title(railways, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Meters to Railways) ytitle(, margin(medsmall)) yscale(range(0(10000)30000)) ylabel(0(10000)30000) yline(0 (10000) 30000, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(5. Distance to Railways, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-railway.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* TOTAL POPULATION

rdrobust totalpop distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot totalpop distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(100)300) xlabel(,labsize(small) format(%9.0gc)) title(Total Population, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot totalpop distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(100)300) xlabel(,labsize(small) format(%9.0gc)) title(Total Population, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Total Population in 1921) ytitle(, margin(medsmall)) yscale(range(0(20000)60000)) ylabel(0(20000)60000) yline(0 (20000) 60000, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(6. Total Population in 1921, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-totalpop.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* JEWISH POPULATION 1750

rdrobust jews1750_leitenberg distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot jews1750_leitenberg distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(J Pop, size(small) margin(medsmall)) ylabel(0(500)2000) xlabel(,labsize(small) format(%9.0gc)) title(J Population, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot jews1750_leitenberg distance if abs(distance)<bandwidth, nbins(20 20) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(J Pop, size(small) margin(medsmall)) ylabel(0(500)2000) xlabel(,labsize(small) format(%9.0gc)) title(J Population, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Jewish Population in 1750) ytitle(, margin(medsmall)) yscale(range(0(1000)3000)) ylabel(0(1000)3000) yline(0 (1000)3000, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(7. Jewish Population in 1750, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-jewish1750.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* JEWISH POPULATION 1800

rdrobust jews1800_leitenberg distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot jews1800_leitenberg distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(J Pop, size(small) margin(medsmall)) ylabel(0(1000)4000) xlabel(,labsize(small) format(%9.0gc)) title(J Population, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot jews1800_leitenberg distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(J Pop, size(small) margin(medsmall)) ylabel(0(1000)4000) xlabel(,labsize(small) format(%9.0gc)) title(J Population, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Jewish Population in 1800) ytitle(, margin(medsmall)) yscale(range(0(1000)5000)) ylabel(0(1000)5000) yline(0 (1000) 5000, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(8. Jewish Population in 1800, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-jewish1800.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* JEWISH POPULATION 1850

rdrobust jews1850_leitenberg distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot jews1850_leitenberg distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(J Pop, size(small) margin(medsmall)) ylabel(0(2000)6000) xlabel(,labsize(small) format(%9.0gc)) title(J Population, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot jews1850_leitenberg distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(J Pop, size(small) margin(medsmall)) ylabel(0(2000)6000) xlabel(,labsize(small) format(%9.0gc)) title(J Population, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Jewish Population in 1850) ytitle(, margin(medsmall)) yscale(range(0(2000)8000)) ylabel(0(2000)8000) yline(0 (2000) 8000, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(9. Jewish Population in 1850, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-jewish1850.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* JEWISH POPULATION 1900

rdrobust jews1900_leitenberg distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot jews1900_leitenberg distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(5000)25000) xlabel(,labsize(small) format(%9.0gc)) title(J Population, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot jews1900_leitenberg distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(5000)25000) xlabel(,labsize(small) format(%9.0gc)) title(J Population, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Jewish Population in 1900) ytitle(, margin(medsmall)) yscale(range(0(10000)30000)) ylabel(0(10000)30000) yline(0 (10000) 30000, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(10. Jewish Population in 1900, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-jewish1900.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* JEWISH POPULATION 1921

rdrobust jewishpop distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot jewishpop distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(5000)25000) xlabel(,labsize(small) format(%9.0gc)) title(J Population, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot jewishpop distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Altitude, size(small) margin(medsmall)) ylabel(0(5000)25000) xlabel(,labsize(small) format(%9.0gc)) title(J Population, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Jewish Population in 1921) ytitle(, margin(medsmall)) yscale(range(0(10000)30000)) ylabel(0(10000)30000) yline(0 (10000) 30000, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(11. Jewish Population in 1921, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-jewish1921.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* PROPORTION JEWISH 1921

rdrobust percent_j distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot percent_j distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Jew Pop, size(small) margin(medsmall)) ylabel(0(20)60) xlabel(,labsize(small) format(%9.0gc)) title(Prop Jewish, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot percent_j distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Jew Pop, size(small) margin(medsmall)) ylabel(0(20)60) xlabel(,labsize(small) format(%9.0gc)) title(Prop Jewish, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Proportion Jewish in 1921) ytitle(, margin(medsmall)) yscale(range(0(20)80)) ylabel(0(20)80) yline(0 (20) 80, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(12. Proportion Jewish in 1921, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-pjews1921.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* CHANGE IN JEWISH POPULATION

rdrobust change_jewish1900to1921 distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot change_jewish1900to1921 distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Change Jew, size(small) margin(medsmall)) ylabel(-2(2)8) xlabel(,labsize(small) format(%9.0gc)) title(Change Jewish, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot change_jewish1900to1921 distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Change Jew, size(small) margin(medsmall)) ylabel(-2(2)8) xlabel(,labsize(small) format(%9.0gc)) title(Change Jewish, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Change in Jewish Population 1900-1921) ytitle(, margin(medsmall)) yscale(range(-2(2)8)) ylabel(-2(2)8) yline(-2(2)8, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(13. Change in Jewish Population, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-change-population.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* HOMETOWN ASSOCIATIONS IN NYC

rdrobust landmanshaftncomplete_popjew1900 distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot landmanshaftncomplete_popjew1900 distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Hometwon Assoc, size(small) margin(medsmall)) ylabel(0(2)8) xlabel(,labsize(small) format(%9.0gc)) title(Change Jewish, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot landmanshaftncomplete_popjew1900 distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Hometwon Assoc, size(small) margin(medsmall)) ylabel(0(2)8) xlabel(,labsize(small) format(%9.0gc)) title(Change Jewish, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Hometwon Associations in NYC) ytitle(, margin(medsmall)) yscale(range(0(2)8)) ylabel(0(2)8) yline(0(2)8, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(14. Hometwon Associations in NYC, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-landmanshaft.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* POLISH NATIONALITY

rdrobust polish21 distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot polish21 distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Polish, size(small) margin(medsmall)) ylabel(0(10000)30000) xlabel(,labsize(small) format(%9.0gc)) title(Polish, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot polish21 distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Polish, size(small) margin(medsmall)) ylabel(0(10000)30000) xlabel(,labsize(small) format(%9.0gc)) title(Polish, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Ethnic Poles in 1921) ytitle(, margin(medsmall)) yscale(range(0(20000)40000)) ylabel(0(20000)40000) yline(0(20000)40000, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(15. Polish Ethnicity, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-polish.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* CATHOLICS

rdrobust rc21 distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot rc21 distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Catholics, size(small) margin(medsmall)) ylabel(0(5000)25000) xlabel(,labsize(small) format(%9.0gc)) title(Catholics, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot rc21 distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Catholics, size(small) margin(medsmall)) ylabel(0(5000)25000) xlabel(,labsize(small) format(%9.0gc)) title(Catholics, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Catholics in 1921) ytitle(, margin(medsmall)) yscale(range(0(20000)40000)) ylabel(0(20000)40000) yline(0(20000)40000, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(16. Catholics, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-catholic.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* HASIDIC YESHIVOTS

rdrobust yeshivot_cap distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot yeshivot_cap distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Yeshivot, size(small) margin(medsmall)) ylabel(0(10)40) xlabel(,labsize(small) format(%9.0gc)) title(Yeshivot per Capita, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot yeshivot_cap distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Yeshivot, size(small) margin(medsmall)) ylabel(0(10)40) xlabel(,labsize(small) format(%9.0gc)) title(Yeshivot per Capita, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Yeshivot per Capita) ytitle(, margin(medsmall)) yscale(range(0(10)40)) ylabel(0(10)40) yline(0(10)40, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(17. Hasidic Yeshivot, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-yeshivot.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* ETHNIC FRACTIONALIZATION

rdrobust ethnic_fract distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot ethnic_fract distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Ethnic Fract, size(small) margin(medsmall)) ylabel(0(2)8) xlabel(,labsize(small) format(%9.0gc)) title(Ethnic Fract, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot ethnic_fract distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Ethnic Fract, size(small) margin(medsmall)) ylabel(0(2)8) xlabel(,labsize(small) format(%9.0gc)) title(Ethnic Fract, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Ethnic Fractionalization Index) ytitle(, margin(medsmall)) yscale(range(0(.5)1)) ylabel(0(.5)1) yline(0(.5)1, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(18. Ethnic Fractionalization, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-ethnicfract.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* RELIGIOUS FRACTIONALIZATION

rdrobust rel_fract distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot rel_fract distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Relig Fract, size(small) margin(medsmall)) ylabel(0(2)8) xlabel(,labsize(small) format(%9.0gc)) title(Relig Fract, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot rel_fract distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Ethnic Fract, size(small) margin(medsmall)) ylabel(0(2)8) xlabel(,labsize(small) format(%9.0gc)) title(Ethnic Fract, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Religious Fractionalization Index) ytitle(, margin(medsmall)) yscale(range(0(.5)1)) ylabel(0(.5)1) yline(0(.5)1, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(19. Religious Fractionalization, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-relfract.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* SCHOOL TEACHERS

rdrobust teachersperthousand distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot teachersperthousand distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(School Teachers, size(small) margin(medsmall)) ylabel(2(1)5) xlabel(,labsize(small) format(%9.0gc)) title(School Teachers, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot teachersperthousand distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(School Teachers, size(small) margin(medsmall)) ylabel(2(1)5) xlabel(,labsize(small) format(%9.0gc)) title(School Teachers, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Teachers per 1000 Inhabitants) ytitle(, margin(medsmall)) yscale(range(1(1)5)) ylabel(1(1)5) yline(1(1)5, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(20. School Teachers, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-teachers.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot


* PUBLIC SCHOOLS

rdrobust schoolper10thousand distance, kernel(triangular) p(1) bwselect(mserd) all
replace bandwidth=e(h_l)

rdplot schoolper10thousand distance, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Schools per 10000 Inhabitants, size(small) margin(medsmall)) ylabel(2(2)8) xlabel(,labsize(small) format(%9.0gc)) title(Schools per 10000 Inhabitants, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

replace rdplot_mean_y_full=rdplot_mean_y
replace bin_for_plot_full=bin_for_plot

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot

rdplot schoolper10thousand distance if abs(distance)<bandwidth, nbins(30 30) binselect(qs) p(1) graph_options(graphregion(color(white)) xtitle(Distance to border between Congress and Russian Pale, size(small) margin(medsmall)) ytitle(Schools per 10000 Inhabitants, size(small) margin(medsmall)) ylabel(2(2)8) xlabel(,labsize(small) format(%9.0gc)) title(Schools per 10000 Inhabitants, size(medlarge) margin(medsmall))) genvars

sort rdplot_id id
gen lagrdplot_id=rdplot_id[_n-1]
gen bin_for_plot=1 if rdplot_id!=lagrdplot_id & rdplot_id!=.

twoway (lfitci rdplot_mean_y distance if distance<0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (lfitci rdplot_mean_y distance if distance>0, level(99) clcolor(black) ciplot(rline) blcolor(black) blpattern(dash) clwidth(medthick) blwidth(medthick)) (scatter rdplot_mean_y_full distance if bin_for_plot_full==1, mcolor(gray) msize(small) msymbol(circle_hollow)), ytitle(Schools per 10000 Inhabitants) ytitle(, margin(medsmall)) yscale(range(2(2)8)) ylabel(2(2)8) yline(2(2)8, lwidth(thin) lpattern(dot) lcolor(gray)) xtitle(Distance (West-East) from Russian Pale Border in Meters, size(small) margin(medsmall)) xline(0, lwidth(medium) lcolor(black)) title(21. Public Schools, size(medlarge) margin(medsmall)) legend(off) scheme(s1mono)

graph save "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-schools.tif", replace

drop rdplot_id rdplot_N rdplot_min_bin rdplot_max_bin rdplot_mean_bin rdplot_mean_x rdplot_mean_y rdplot_se_y rdplot_ci_l rdplot_ci_r rdplot_hat_y lagrdplot_id bin_for_plot



gr combine "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-altitude.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-ruggedness.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-cropland.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-pasture.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-railway.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-totalpop.tif", xcommon iscale(.5) col(3) title(Figure I. Geographic and Economic Variables) graphregion(fcolor(white))

graph export "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\appendix-A-figure-I-p1.tif", replace

gr combine "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-jewish1750.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-jewish1800.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-jewish1850.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-jewish1900.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-jewish1921.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-pjews1921.tif", xcommon iscale(.5) col(3) title(Figure II. Jewish Population) graphregion(fcolor(white))

graph export "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\appendix-A-figure-II-p1.tif", replace

gr combine "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-change-population.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-landmanshaft.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-polish.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-catholic.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-yeshivot.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-ethnicfract.tif", xcommon iscale(.5) col(3) title(Figure III. Population Change and Composition) graphregion(fcolor(white))

graph export "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\appendix-A-figure-III-p1.tif", replace

gr combine "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-relfract.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-teachers.tif" "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\rdplot-schools.tif", xcommon iscale(.5) col(3) title(Figure IV. Population Composition (cont) and Educational Investments, size(medium)) graphregion(fcolor(white))

graph export "C:\Users\cboix\Documents\SpiderOak Hive\NATIONAL IDENTITY\JEWISH NAT IDENTITY\PAPER - political emancipation and national identity\FINAL APSR VERSION\EMPIRICS\empirics - rdd\appendix B\plot outputs -- p1-bin30-bandwidth\appendix-A-figure-IV-p1.tif", replace


